home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 26 / CU Amiga Magazine's Super CD-ROM 26 (1998)(EMAP Images)(GB)[!][issue 1998-09].iso / CUCD / Utilities / Freedom / Install Demo Font < prev    next >
Text File  |  1998-07-13  |  1KB  |  59 lines
  1. (set #MSG_INTRO "\nThis will install the arial truetype font. I'm not sure if it was legal to include it in this archive (I took it from a PC), so please don't tell anybody ;-)\n\nAre you sure you want to continue?")
  2. (set #MSG_NOFONTDIR "\nYou forgot to run the \"Prepare Font Directory\" script. You can't continue before having done that ...");
  3. (set #MSG_COPY_FONT "\nCopying font contents file (\"arial.font\") to \"%s\" ...")
  4. (set #MSG_COPY_OTAG "\nCopying font outline tag file (\"arial.otag\") to \"%s\" ...")
  5. (set #MSG_COPY_TT   "\nCopying truetype font file (\"arial.ttf\") to \"%s\" ...")
  6.  
  7. (set #MSG_DONE "\nInstallation complete!")
  8. (set #MSG_ABORT "\nInstallation aborted!")
  9.  
  10. (set #MSG_NOHELP "I can't help you!")
  11.  
  12. (if (= 0 (askbool
  13.             (prompt #MSG_INTRO)
  14.             (default 1)
  15.             (help #MSG_NOHELP)
  16.          )
  17.     )
  18.     (
  19.         (exit #MSG_ABORT (quiet))
  20.     )
  21. )
  22.  
  23. (set #fontpath "")
  24.  
  25. (while (= "" #fontpath)
  26.     (
  27.         (set #fontpath (getenv "FREEDOM_FONT_PATH"))
  28.         (if (= "" #fontpath)
  29.             (message #MSG_NOFONTDIR)
  30.         )
  31.     )
  32. )
  33.  
  34. (copyfiles
  35.     (prompt (#MSG_COPY_FONT #fontpath))
  36.     (source "demofont/arial.font")
  37.     (dest #fontpath)
  38.     (confirm)
  39.     (help #MSG_NOHELP)
  40. )
  41.  
  42. (copyfiles
  43.     (prompt (#MSG_COPY_OTAG #fontpath))
  44.     (source "demofont/arial.otag")
  45.     (dest #fontpath)
  46.     (confirm)
  47.     (help #MSG_NOHELP)
  48. )
  49.  
  50. (copyfiles
  51.     (prompt (#MSG_COPY_TT (tackon #fontpath "_truetype")))
  52.     (source "demofont/arial.ttf")
  53.     (dest (tackon #fontpath "_truetype"))
  54.     (confirm)
  55.     (help #MSG_NOHELP)
  56. )
  57.  
  58. (exit #MSG_DONE (quiet))
  59.